home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / toolkit / db2stff / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-03-21  |  20.5 KB  |  578 lines
  1. VERSION 2.00
  2. Begin Form frmAutoDisable 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Autodisable demo"
  5.    ClientHeight    =   4185
  6.    ClientLeft      =   1710
  7.    ClientTop       =   2520
  8.    ClientWidth     =   5535
  9.    ClipControls    =   0   'False
  10.    Height          =   4590
  11.    Left            =   1650
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4185
  14.    ScaleWidth      =   5535
  15.    Top             =   2175
  16.    Width           =   5655
  17.    Begin Frame Frame4 
  18.       BackColor       =   &H00C0C0C0&
  19.       Height          =   2715
  20.       Left            =   3660
  21.       TabIndex        =   15
  22.       Top             =   60
  23.       Width           =   1755
  24.       Begin DBPush DBPush3 
  25.          Alignment       =   2  'Center
  26.          AutoPictureDisabled=   0  'Off
  27.          BackColor       =   &H00C0C0C0&
  28.          BackColorDown   =   &H00E0E0E0&
  29.          BevelWidth      =   2
  30.          Caption         =   "Outer contour"
  31.          CornerColor     =   &H00000000&
  32.          Enabled         =   0   'False
  33.          FocusRect       =   0   'False
  34.          Font3D          =   0  'None
  35.          Font3DDisabled  =   3  'Inset w/light shading
  36.          ForceDown       =   -1  'True
  37.          ForceUp         =   0   'False
  38.          ForeColorDisabled=   &H00808080&
  39.          Height          =   555
  40.          Index           =   0
  41.          Left            =   120
  42.          Outline         =   -1  'True
  43.          OutlineSize     =   1
  44.          PictureFromEdge =   0
  45.          Placement       =   0  'Text below picture
  46.          PredefPicture   =   0  'None
  47.          Style           =   0  'Normal
  48.          TabIndex        =   19
  49.          Top             =   180
  50.          TransColor      =   &H00000000&
  51.          Transparent     =   0   'False
  52.          VertAlignment   =   2  'Center
  53.          Width           =   1515
  54.       End
  55.       Begin DBPush DBPush3 
  56.          Alignment       =   2  'Center
  57.          AutoPictureDisabled=   0  'Off
  58.          BackColor       =   &H00C0C0C0&
  59.          BackColorDown   =   &H00E0E0E0&
  60.          BevelWidth      =   2
  61.          Caption         =   "Whole picture"
  62.          CornerColor     =   &H00000000&
  63.          Enabled         =   0   'False
  64.          FocusRect       =   0   'False
  65.          Font3D          =   0  'None
  66.          Font3DDisabled  =   3  'Inset w/light shading
  67.          ForceDown       =   0   'False
  68.          ForceUp         =   0   'False
  69.          ForeColorDisabled=   &H00808080&
  70.          Height          =   555
  71.          Index           =   1
  72.          Left            =   120
  73.          Outline         =   -1  'True
  74.          OutlineSize     =   1
  75.          PictureFromEdge =   0
  76.          Placement       =   0  'Text below picture
  77.          PredefPicture   =   0  'None
  78.          Style           =   0  'Normal
  79.          TabIndex        =   18
  80.          Top             =   780
  81.          TransColor      =   &H00000000&
  82.          Transparent     =   0   'False
  83.          VertAlignment   =   2  'Center
  84.          Width           =   1515
  85.       End
  86.       Begin DBPush DBPush3 
  87.          Alignment       =   2  'Center
  88.          AutoPictureDisabled=   0  'Off
  89.          BackColor       =   &H00C0C0C0&
  90.          BackColorDown   =   &H00E0E0E0&
  91.          BevelWidth      =   2
  92.          Caption         =   "All contours (thick)"
  93.          CornerColor     =   &H00000000&
  94.          Enabled         =   0   'False
  95.          FocusRect       =   0   'False
  96.          Font3D          =   0  'None
  97.          Font3DDisabled  =   3  'Inset w/light shading
  98.          ForceDown       =   0   'False
  99.          ForceUp         =   0   'False
  100.          ForeColorDisabled=   &H00808080&
  101.          Height          =   555
  102.          Index           =   2
  103.          Left            =   120
  104.          Outline         =   -1  'True
  105.          OutlineSize     =   1
  106.          PictureFromEdge =   0
  107.          Placement       =   0  'Text below picture
  108.          PredefPicture   =   0  'None
  109.          Style           =   0  'Normal
  110.          TabIndex        =   17
  111.          Top             =   1380
  112.          TransColor      =   &H00000000&
  113.          Transparent     =   0   'False
  114.          VertAlignment   =   2  'Center
  115.          Width           =   1515
  116.       End
  117.       Begin DBPush DBPush3 
  118.          Alignment       =   2  'Center
  119.          AutoPictureDisabled=   0  'Off
  120.          BackColor       =   &H00C0C0C0&
  121.          BackColorDown   =   &H00E0E0E0&
  122.          BevelWidth      =   2
  123.          Caption         =   "All contours (thin)"
  124.          CornerColor     =   &H00000000&
  125.          Enabled         =   0   'False
  126.          FocusRect       =   0   'False
  127.          Font3D          =   0  'None
  128.          Font3DDisabled  =   3  'Inset w/light shading
  129.          ForceDown       =   0   'False
  130.          ForceUp         =   0   'False
  131.          ForeColorDisabled=   &H00808080&
  132.          Height          =   555
  133.          Index           =   3
  134.          Left            =   120
  135.          Outline         =   -1  'True
  136.          OutlineSize     =   1
  137.          PictureFromEdge =   0
  138.          Placement       =   0  'Text below picture
  139.          PredefPicture   =   0  'None
  140.          Style           =   0  'Normal
  141.          TabIndex        =   16
  142.          Top             =   2040
  143.          TransColor      =   &H00000000&
  144.          Transparent     =   0   'False
  145.          VertAlignment   =   2  'Center
  146.          Width           =   1515
  147.       End
  148.    End
  149.    Begin Frame Frame3 
  150.       BackColor       =   &H00C0C0C0&
  151.       Height          =   1515
  152.       Left            =   2280
  153.       TabIndex        =   12
  154.       Top             =   1920
  155.       Width           =   1275
  156.       Begin DBPush DBPush4 
  157.          Alignment       =   2  'Center
  158.          AutoPictureDisabled=   0  'Off
  159.          BackColor       =   &H00C0C0C0&
  160.          BackColorDown   =   &H00E0E0E0&
  161.          BevelWidth      =   2
  162.          Caption         =   "Inset"
  163.          CornerColor     =   &H00000000&
  164.          Enabled         =   0   'False
  165.          FocusRect       =   0   'False
  166.          Font3D          =   0  'None
  167.          Font3DDisabled  =   3  'Inset w/light shading
  168.          ForceDown       =   -1  'True
  169.          ForceUp         =   0   'False
  170.          ForeColorDisabled=   &H00808080&
  171.          Height          =   495
  172.          Index           =   1
  173.          Left            =   120
  174.          Outline         =   -1  'True
  175.          OutlineSize     =   1
  176.          PictureFromEdge =   0
  177.          Placement       =   0  'Text below picture
  178.          PredefPicture   =   0  'None
  179.          Style           =   0  'Normal
  180.          TabIndex        =   14
  181.          Top             =   840
  182.          TransColor      =   &H00000000&
  183.          Transparent     =   0   'False
  184.          VertAlignment   =   2  'Center
  185.          Width           =   1035
  186.       End
  187.       Begin DBPush DBPush4 
  188.          Alignment       =   2  'Center
  189.          AutoPictureDisabled=   0  'Off
  190.          BackColor       =   &H00C0C0C0&
  191.          BackColorDown   =   &H00E0E0E0&
  192.          BevelWidth      =   2
  193.          Caption         =   "Raised"
  194.          CornerColor     =   &H00000000&
  195.          Enabled         =   0   'False
  196.          FocusRect       =   0   'False
  197.          Font3D          =   0  'None
  198.          Font3DDisabled  =   3  'Inset w/light shading
  199.          ForceDown       =   0   'False
  200.          ForceUp         =   0   'False
  201.          ForeColorDisabled=   &H00808080&
  202.          Height          =   495
  203.          Index           =   0
  204.          Left            =   120
  205.          Outline         =   -1  'True
  206.          OutlineSize     =   1
  207.          PictureFromEdge =   0
  208.          Placement       =   0  'Text below picture
  209.          PredefPicture   =   0  'None
  210.          Style           =   0  'Normal
  211.          TabIndex        =   13
  212.          Top             =   240
  213.          TransColor      =   &H00000000&
  214.          Transparent     =   0   'False
  215.          VertAlignment   =   2  'Center
  216.          Width           =   1035
  217.       End
  218.    End
  219.    Begin Frame Frame2 
  220.       BackColor       =   &H00C0C0C0&
  221.       Caption         =   "Transparent color"
  222.       Height          =   1515
  223.       Left            =   120
  224.       TabIndex        =   6
  225.       Top             =   1920
  226.       Width           =   2055
  227.       Begin DBPush DBPush1 
  228.          Alignment       =   2  'Center
  229.          AutoPictureDisabled=   0  'Off
  230.          BackColor       =   &H00C0C0C0&
  231.          BackColorDown   =   &H00E0E0E0&
  232.          BevelWidth      =   2
  233.          Caption         =   "White"
  234.          CornerColor     =   &H00000000&
  235.          FocusRect       =   -1  'True
  236.          Font3D          =   0  'None
  237.          Font3DDisabled  =   0  'None
  238.          ForceDown       =   0   'False
  239.          ForceUp         =   0   'False
  240.          ForeColorDisabled=   &H00000000&
  241.          Height          =   315
  242.          Index           =   1
  243.          Left            =   120
  244.          Outline         =   -1  'True
  245.          OutlineSize     =   1
  246.          PictureFromEdge =   0
  247.          Placement       =   0  'Text below picture
  248.          PredefPicture   =   0  'None
  249.          Style           =   0  'Normal
  250.          TabIndex        =   10
  251.          Top             =   660
  252.          TransColor      =   &H00000000&
  253.          Transparent     =   0   'False
  254.          VertAlignment   =   2  'Center
  255.          Width           =   855
  256.       End
  257.       Begin DBPush DBPush1 
  258.          Alignment       =   2  'Center
  259.          AutoPictureDisabled=   0  'Off
  260.          BackColor       =   &H00C0C0C0&
  261.          BackColorDown   =   &H00E0E0E0&
  262.          BevelWidth      =   2
  263.          Caption         =   "Black"
  264.          CornerColor     =   &H00000000&
  265.          FocusRect       =   -1  'True
  266.          Font3D          =   0  'None
  267.          Font3DDisabled  =   0  'None
  268.          ForceDown       =   0   'False
  269.          ForceUp         =   0   'False
  270.          ForeColorDisabled=   &H00000000&
  271.          Height          =   315
  272.          Index           =   2
  273.          Left            =   1080
  274.          Outline         =   -1  'True
  275.          OutlineSize     =   1
  276.          PictureFromEdge =   0
  277.          Placement       =   0  'Text below picture
  278.          PredefPicture   =   0  'None
  279.          Style           =   0  'Normal
  280.          TabIndex        =   9
  281.          Top             =   300
  282.          TransColor      =   &H00000000&
  283.          Transparent     =   0   'False
  284.          VertAlignment   =   2  'Center
  285.          Width           =   855
  286.       End
  287.       Begin DBPush DBPush1 
  288.          Alignment       =   2  'Center
  289.          AutoPictureDisabled=   0  'Off
  290.          BackColor       =   &H00C0C0C0&
  291.          BackColorDown   =   &H00E0E0E0&
  292.          BevelWidth      =   2
  293.          Caption         =   "Red"
  294.          CornerColor     =   &H00000000&
  295.          FocusRect       =   -1  'True
  296.          Font3D          =   0  'None
  297.          Font3DDisabled  =   0  'None
  298.          ForceDown       =   0   'False
  299.          ForceUp         =   0   'False
  300.          ForeColorDisabled=   &H00000000&
  301.          Height          =   315
  302.          Index           =   3
  303.          Left            =   1080
  304.          Outline         =   -1  'True
  305.          OutlineSize     =   1
  306.          PictureFromEdge =   0
  307.          Placement       =   0  'Text below picture
  308.          PredefPicture   =   0  'None
  309.          Style           =   0  'Normal
  310.          TabIndex        =   8
  311.          Top             =   660
  312.          TransColor      =   &H00000000&
  313.          Transparent     =   0   'False
  314.          VertAlignment   =   2  'Center
  315.          Width           =   855
  316.       End
  317.       Begin DBPush DBPush1 
  318.          Alignment       =   2  'Center
  319.          AutoPictureDisabled=   0  'Off
  320.          BackColor       =   &H00C0C0C0&
  321.          BackColorDown   =   &H00E0E0E0&
  322.          BevelWidth      =   2
  323.          Caption         =   "Yellow"
  324.          CornerColor     =   &H00000000&
  325.          FocusRect       =   -1  'True
  326.          Font3D          =   0  'None
  327.          Font3DDisabled  =   0  'None
  328.          ForceDown       =   -1  'True
  329.          ForceUp         =   0   'False
  330.          ForeColorDisabled=   &H00000000&
  331.          Height          =   315
  332.          Index           =   0
  333.          Left            =   120
  334.          Outline         =   -1  'True
  335.          OutlineSize     =   1
  336.          PictureFromEdge =   0
  337.          Placement       =   0  'Text below picture
  338.          PredefPicture   =   0  'None
  339.          Style           =   0  'Normal
  340.          TabIndex        =   7
  341.          Top             =   300
  342.          TransColor      =   &H00000000&
  343.          Transparent     =   0   'False
  344.          VertAlignment   =   2  'Center
  345.          Width           =   855
  346.       End
  347.       Begin Label Label1 
  348.          BackStyle       =   0  'Transparent
  349.          Caption         =   "This only affects the bitmap, not the icons."
  350.          Height          =   435
  351.          Left            =   60
  352.          TabIndex        =   11
  353.          Top             =   1020
  354.          Width           =   2055
  355.       End
  356.    End
  357.    Begin Frame Frame1 
  358.       BackColor       =   &H00C0C0C0&
  359.       Caption         =   "Sample pictures"
  360.       Height          =   1815
  361.       Left            =   120
  362.       TabIndex        =   2
  363.       Top             =   60
  364.       Width           =   3435
  365.       Begin DBPush DBPush13 
  366.          Alignment       =   2  'Center
  367.          AutoPictureDisabled=   1  'Outer contour Inset
  368.          BackColor       =   &H00C0C0C0&
  369.          BackColorDown   =   &H00C0C0C0&
  370.          BevelWidth      =   2
  371.          CornerColor     =   &H00000000&
  372.          FocusRect       =   -1  'True
  373.          Font3D          =   0  'None
  374.          Font3DDisabled  =   0  'None
  375.          ForceDown       =   0   'False
  376.          ForceUp         =   0   'False
  377.          ForeColorDisabled=   &H00000000&
  378.          Height          =   1395
  379.          Left            =   120
  380.          Outline         =   -1  'True
  381.          OutlineSize     =   1
  382.          Picture         =   FORM2.FRX:0000
  383.          PictureFromEdge =   0
  384.          Placement       =   0  'Text below picture
  385.          PredefPicture   =   0  'None
  386.          Style           =   0  'Normal
  387.          TabIndex        =   5
  388.          Top             =   300
  389.          TransColor      =   &H0000FFFF&
  390.          Transparent     =   -1  'True
  391.          VertAlignment   =   2  'Center
  392.          Width           =   2055
  393.       End
  394.       Begin DBPush DBPush14 
  395.          Alignment       =   2  'Center
  396.          AutoPictureDisabled=   1  'Outer contour Inset
  397.          BackColor       =   &H00C0C0C0&
  398.          BackColorDown   =   &H00C0C0C0&
  399.          BevelWidth      =   2
  400.          CornerColor     =   &H00000000&
  401.          FocusRect       =   -1  'True
  402.          Font3D          =   0  'None
  403.          Font3DDisabled  =   0  'None
  404.          ForceDown       =   0   'False
  405.          ForceUp         =   0   'False
  406.          ForeColorDisabled=   &H00000000&
  407.          Height          =   675
  408.          Left            =   2220
  409.          Outline         =   -1  'True
  410.          OutlineSize     =   1
  411.          Picture         =   FORM2.FRX:0A9A
  412.          PictureFromEdge =   0
  413.          Placement       =   0  'Text below picture
  414.          PredefPicture   =   0  'None
  415.          Style           =   0  'Normal
  416.          TabIndex        =   4
  417.          Top             =   300
  418.          TransColor      =   &H00000000&
  419.          Transparent     =   0   'False
  420.          VertAlignment   =   1  'Bottom
  421.          Width           =   1095
  422.       End
  423.       Begin DBPush DBPush15 
  424.          Alignment       =   2  'Center
  425.          AutoPictureDisabled=   1  'Outer contour Inset
  426.          BackColor       =   &H00C0C0C0&
  427.          BackColorDown   =   &H00C0C0C0&
  428.          BevelWidth      =   2
  429.          CornerColor     =   &H00000000&
  430.          FocusRect       =   -1  'True
  431.          Font3D          =   0  'None
  432.          Font3DDisabled  =   0  'None
  433.          ForceDown       =   0   'False
  434.          ForceUp         =   0   'False
  435.          ForeColorDisabled=   &H00000000&
  436.          Height          =   675
  437.          Left            =   2220
  438.          Outline         =   -1  'True
  439.          OutlineSize     =   1
  440.          Picture         =   FORM2.FRX:0D9C
  441.          PictureFromEdge =   0
  442.          Placement       =   0  'Text below picture
  443.          PredefPicture   =   0  'None
  444.          Style           =   0  'Normal
  445.          TabIndex        =   3
  446.          Top             =   1020
  447.          TransColor      =   &H00000000&
  448.          Transparent     =   0   'False
  449.          VertAlignment   =   1  'Bottom
  450.          Width           =   1095
  451.       End
  452.    End
  453.    Begin DBPush cmdExit 
  454.       Alignment       =   2  'Center
  455.       AutoPictureDisabled=   0  'Off
  456.       BackColor       =   &H00C0C0C0&
  457.       BackColorDown   =   &H00C0C0C0&
  458.       BevelWidth      =   2
  459.       Caption         =   "Close"
  460.       CornerColor     =   &H00C0C0C0&
  461.       FocusRect       =   -1  'True
  462.       Font3D          =   0  'None
  463.       Font3DDisabled  =   0  'None
  464.       FontBold        =   0   'False
  465.       FontItalic      =   0   'False
  466.       FontName        =   "MS Sans Serif"
  467.       FontSize        =   8.25
  468.       FontStrikethru  =   0   'False
  469.       FontUnderline   =   0   'False
  470.       ForceDown       =   0   'False
  471.       ForceUp         =   0   'False
  472.       ForeColorDisabled=   &H00000000&
  473.       Height          =   495
  474.       Left            =   2220
  475.       Outline         =   -1  'True
  476.       OutlineSize     =   1
  477.       PictureFromEdge =   0
  478.       Placement       =   1  'Text right of picture
  479.       PredefPicture   =   2  'Cancel
  480.       Style           =   0  'Normal
  481.       TabIndex        =   1
  482.       Top             =   3600
  483.       TransColor      =   &H00000000&
  484.       Transparent     =   0   'False
  485.       VertAlignment   =   2  'Center
  486.       Width           =   1275
  487.    End
  488.    Begin DBPush DBPush2 
  489.       Alignment       =   2  'Center
  490.       AutoPictureDisabled=   0  'Off
  491.       BackColor       =   &H00C0C0C0&
  492.       BackColorDown   =   &H00E0E0E0&
  493.       BevelWidth      =   2
  494.       Caption         =   "Disable!"
  495.       CornerColor     =   &H00000000&
  496.       FocusRect       =   0   'False
  497.       Font3D          =   0  'None
  498.       Font3DDisabled  =   0  'None
  499.       ForceDown       =   0   'False
  500.       ForceUp         =   0   'False
  501.       ForeColorDisabled=   &H00000000&
  502.       Height          =   675
  503.       Left            =   3840
  504.       Outline         =   -1  'True
  505.       OutlineSize     =   1
  506.       PictureFromEdge =   0
  507.       Placement       =   0  'Text below picture
  508.       PredefPicture   =   0  'None
  509.       Style           =   0  'Normal
  510.       TabIndex        =   0
  511.       Top             =   2880
  512.       TransColor      =   &H00000000&
  513.       Transparent     =   0   'False
  514.       VertAlignment   =   2  'Center
  515.       Width           =   1455
  516.    End
  517. Option Explicit
  518. Sub cmdExit_Click ()
  519.   Unload Me
  520. End Sub
  521. Sub DBPush1_Click (Index As Integer)
  522.   Static nCurrentButtonDown As Integer
  523.   DBPush1(nCurrentButtonDown).ForceDown = False
  524.   DBPush1(Index).ForceDown = True
  525.   nCurrentButtonDown = Index
  526.   Select Case nCurrentButtonDown
  527.     Case 0:
  528.       DBPush13.TransColor = &HFFFF&
  529.     Case 1:
  530.       DBPush13.TransColor = &HFFFFFF
  531.     Case 2:
  532.       DBPush13.TransColor = 0
  533.     Case 3:
  534.       DBPush13.TransColor = &HFF&
  535.   End Select
  536. End Sub
  537. Sub DBPush2_Click ()
  538.   DBPush2.ForceDown = Not DBPush2.ForceDown
  539.   DBPush3(0).Enabled = DBPush2.ForceDown
  540.   DBPush3(1).Enabled = DBPush2.ForceDown
  541.   DBPush3(2).Enabled = DBPush2.ForceDown
  542.   DBPush3(3).Enabled = DBPush2.ForceDown
  543.   DBPush4(0).Enabled = DBPush2.ForceDown
  544.   DBPush4(1).Enabled = DBPush2.ForceDown
  545.   DBPush13.Enabled = Not DBPush2.ForceDown
  546.   DBPush14.Enabled = Not DBPush2.ForceDown
  547.   DBPush15.Enabled = Not DBPush2.ForceDown
  548. End Sub
  549. Sub DBPush3_Click (Index As Integer)
  550.   Static nCBD As Integer
  551.   If Index = nCBD Then Exit Sub
  552.   DBPush3(Index).ForceDown = True
  553.   DBPush3(nCBD).ForceDown = False
  554.   nCBD = Index
  555.   Dim x As Integer
  556.   x = (DBPush13.AutoPictureDisabled - 1) And 1
  557.   Select Case Index
  558.     Case 0:  x = x + 0
  559.     Case 1:  x = x + 2
  560.     Case 2:  x = x + 4
  561.     Case 3:  x = x + 6
  562.   End Select
  563.   DBPush13.AutoPictureDisabled = x + 1
  564.   DBPush14.AutoPictureDisabled = x + 1
  565.   DBPush15.AutoPictureDisabled = x + 1
  566. End Sub
  567. Sub DBPush4_Click (Index As Integer)
  568.   If DBPush4(Index).ForceDown Then Exit Sub
  569.   DBPush4(0).ForceDown = Not DBPush4(0).ForceDown
  570.   DBPush4(1).ForceDown = Not DBPush4(1).ForceDown
  571.   Dim x As Integer
  572.   x = DBPush13.AutoPictureDisabled - 1
  573.   x = x Xor 1
  574.   DBPush13.AutoPictureDisabled = x + 1
  575.   DBPush14.AutoPictureDisabled = x + 1
  576.   DBPush15.AutoPictureDisabled = x + 1
  577. End Sub
  578.